home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / compuserve-file-archive / 11 Exotic Applications / BEEPDI.BIN (.txt) < prev    next >
Encoding:
Commodore BASIC  |  2019-04-13  |  7.8 KB  |  284 lines
  1. 10 REM ********************************
  2. 20 REM *                              *
  3. 30 REM *    BEEPER DIALER VER 1.5     *
  4. 40 REM *                              *
  5. 50 REM *       MATTHEW HOFFMAN        *
  6. 55 REM *         70611,3110           *
  7. 57 REM *                              *
  8. 60 REM *           5/16/88            *
  9. 70 REM *                              *
  10. 80 REM ********************************
  11. 90 REM
  12. 100 REM
  13. 110 REM        INITIALIZE
  14. 120 REM
  15. 130 POKE 53280,0:POKE53281,0
  16. 140 OH=56577:HI=32:LO=255-32:CC=1:SID=54272:MM=49152
  17. 150 CD$=""
  18. 160 GOSUB 1580
  19. 170 GOSUB 1960
  20. 180 GOSUB 1170:GOSUB 1240
  21. 190 POKE49200,4:POKE49201,0
  22. 200 REM
  23. 210 REM        GET DATA
  24. 220 REM
  25. 230 REM
  26. 240 PRINT CHR$(147)TAB(13)"[164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][146]"
  27. 250 PRINT TAB(13)" BEEPER DIALER [146]"
  28. 260 PRINTTAB(7)"ENTER NEW # [150] <Q> TO QUIT"
  29. 270 PRINTTAB(10)"[159]<RETURN> IF CORRECT"
  30. 280 PRINT CHR$(19)TAB(25)"[156]"BP$
  31. 290 INPUT "[145]BEEPER PHONE # ";N$
  32. 300 IF LEFT$(N$,1)="Q"THEN SYS65409:END:    REM KERNAL CINT ROUTINE
  33. 310 PRINT CHR$(19)TAB(25)"[156]"RT$
  34. 320 INPUT "[145]RETURN PHONE # ";NR$
  35. 330 IF LEFT$(NR$,1)="Q"THEN SYS65409:END:    REM KERNAL CINT ROUTINE
  36. 340 IFN$=BP$ANDNR$=RT$THEN360
  37. 350 BP$=N$:RT$=NR$:AF=1
  38. 360 IFAF=1THENGOSUB2100
  39. 370 GOSUB 1420
  40. 380 REM
  41. 390 REM        MAIN LOOP
  42. 400 REM
  43. 410 PRINT""LEFT$(TI$,2)":"MID$(TI$,3,2)":"RIGHT$(TI$,2)
  44. 420 IF(PEEK(OH)AND8)=0 THEN 450:REM WAIT FOR RING
  45. 430 IF PEEK(197)=22 THEN IF PEEK(653)=4 THEN450
  46. 440 GOTO 410
  47. 450 IF CF=0 THEN CF=1:GOSUB 1420:PRINT"[145][145]";:RC=CC+2
  48. 460 GOSUB 1490
  49. 470 BG=INT(TI/60)
  50. 480 PRINT""LEFT$(TI$,2)":"MID$(TI$,3,2)":"RIGHT$(TI$,2)
  51. 490 IF FT=0THEN FT=1:ED=BG+AD:REM AD=TIME DELAY(# OF SECONDS)
  52. 500 IF BG=ED THEN 520
  53. 510 GOTO 470
  54. 520 CC=CC+1:FT=0:REM CALL COUNT
  55. 530 DN$=BP$
  56. 540 POKE SID+24,7
  57. 550 POKEOH+2,PEEK(OH+2) OR HI:POKEOH,PEEK(OH)AND LO:REM MODEM OFF HOOK
  58. 560 FOR TD=0TO1000:NEXT:REM WAIT FOR DIAL TONE
  59. 570 FOR RP=0TO1
  60. 580 IF DF=0THEN 650
  61. 590 DN$=RT$+"#"
  62. 600 BG=INT(TI/60)
  63. 610 PRINT""LEFT$(TI$,2)":"MID$(TI$,3,2)":"RIGHT$(TI$,2)
  64. 620 IFFF=0THENED=BG+BA:FF=1:REM BA=TIME DELAYFOR BEEPER PHONE TO ANSWER
  65. 630 IFBG=EDTHEN650
  66. 640 GOTO600
  67. 650 L=LEN(DN$)
  68. 660 FOR I=1TOL
  69. 670 D$=MID$(DN$,I,1)
  70. 680 IF ASC(D$)=35THEN 700
  71. 690 IFASC(D$)<48 OR ASC(D$)>57 THEN 710
  72. 700 GOSUB 800:GOSUB 1040:GOSUB 960
  73. 710 NEXT I
  74. 720 DF=1
  75. 730 NEXT RP
  76. 740 DF=0:FF=0
  77. 750 POKESID+24,0
  78. 760 FOR TD=0TO500:NEXT
  79. 770 POKE OH,PEEK(OH) OR HI:REM HANG UP
  80. 780 GOTO 420
  81. 790 REM
  82. 800 REM        LOOK UP TABLE
  83. 810 REM
  84. 820 IF D$="1"THEN R=1:C=1
  85. 830 IF D$="2"THEN R=1:C=2
  86. 840 IF D$="3"THEN R=1:C=3
  87. 850 IF D$="4"THEN R=2:C=1
  88. 860 IF D$="5"THEN R=2:C=2
  89. 870 IF D$="6"THEN R=2:C=3
  90. 880 IF D$="7"THEN R=3:C=1
  91. 890 IF D$="8"THEN R=3:C=2
  92. 900 IF D$="9"THEN R=3:C=3
  93. 910 IF D$="*"THEN R=4:C=1
  94. 920 IF D$="0"THEN R=4:C=2
  95. 930 IF D$="#"THEN R=4:C=3
  96. 940 RETURN
  97. 950 REM
  98. 960 REM        TURN 'EM ON
  99. 970 REM
  100. 980 POKE SID+4,17:POKESID+11,17:REM ENABLE TONES
  101. 990 FOR TD=0TO50:NEXT:REM ON-TIME DELAY
  102. 1000 POKESID+4,16:POKE SID+11,16:REM TONES OFF
  103. 1010 REM OFF-TIME DELAY DON'T NEED(?)
  104. 1020 RETURN
  105. 1030 REM
  106. 1040 REM        TONE POKES
  107. 1050 REM
  108. 1060 ON C GOSUB 1090,1100,1110
  109. 1070 ON R GOSUB 1120,1130,1140,1150
  110. 1080 RETURN
  111. 1090 POKE SID,117:POKE SID+1,77:RETURN:      REM COLUMN 1
  112. 1100 POKE SID,152:POKE SID+1,85:RETURN:      REM COLUMN 2
  113. 1110 POKE SID,161:POKE SID+1,94:RETURN:      REM COLUMN 3
  114. 1120 POKE SID+7,168:POKE SID+8,44:RETURN   :REM ROW 1
  115. 1130 POKE SID+7,85:POKE SID+8,49:RETURN    :REM ROW 2
  116. 1140 POKE SID+7,150:POKE SID+8,54:RETURN   :REM ROW 3
  117. 1150 POKE SID+7,74:POKE SID+8,60:RETURN   :REM ROW 4
  118. 1160 REM
  119. 1170 REM        INITIALIZE SID
  120. 1180 REM
  121. 1190 POKE SID+4,16
  122. 1200 POKE SID+11,16:POKE SID+5,0:POKE SID+12,0
  123. 1210 POKE SID+6,15*16:POKE SID+13,15*16:POKESID+23,0
  124. 1220 RETURN
  125. 1230 REM
  126. 1240 REM        SET TIME
  127. 1250 REM
  128. 1260 PRINT"[147][154]CURRENT TIME: ";
  129. 1270 PRINT LEFT$(TI$,2)":"MID$(TI$,3,2)":"RIGHT$(TI$,2)
  130. 1280 PRINT"NO COLONS---> HHMMSS"
  131. 1290 PRINT"<RETURN> IF CORRECT"
  132. 1300 INPUT"[145][145][145][145][145]ENTER TIME :";NT$
  133. 1310 IF NT$=""THEN PRINT"[147]":GOTO1330
  134. 1320 TI$=NT$
  135. 1330 PRINT"[150]ANSWER TIME DELAY: ";AD
  136. 1340 PRINT"<RETURN> IF CORRECT"
  137. 1350 INPUT"[145][145][145][145][145]";ND
  138. 1360 PRINT"[150]BEEPER ANSWER DELAY: ";BA
  139. 1370 PRINT"<RETURN> IF CORRECT"
  140. 1380 INPUT"[145][145][145][145][145]";NB
  141. 1390 IFND=AD AND NB=BA THEN RETURN
  142. 1400 AD=ND:BA=NB:AF=1
  143. 1410 RETURN
  144. 1420 REM        SET UP SCREEN
  145. 1430 REM
  146. 1440 PRINT CHR$(147)TAB(13)"[164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][146]"
  147. 1450 PRINT TAB(13)" BEEPER DIALER [146]"
  148. 1460 IF CF=0 THEN GOSUB 1820
  149. 1470 RETURN
  150. 1480 REM
  151. 1490 REM        PRINT CALL LOG
  152. 1500 REM
  153. 1510 IF CC>20THENPRINT"";TAB(20):RC=CC-17
  154. 1520 PRINTLEFT$(CD$,RC);
  155. 1530 FT$=LEFT$(TI$,2)+":"+MID$(TI$,3,2)
  156. 1540 PRINT"[156]CALL"CC"--> "FT$
  157. 1550 RC=RC+1
  158. 1560 RETURN
  159. 1570 REM
  160. 1580 REM        TITLE SCREEN
  161. 1590 REM
  162. 1600 PRINT"[147][154]"TAB(15)"[213][192][192][192][192][192][192][185][185][146][201]"
  163. 1610 PRINT TAB(15)"[221]        [221]"
  164. 1620 PRINT TAB(15)"[221][166][166][166][166][166]   [221]"
  165. 1630 PRINT TAB(15)"[221][166][166][166][166][166]   [221]"
  166. 1640 PRINT TAB(15)"[221][166][166][166][166][166]   [221]"
  167. 1650 PRINT TAB(15)"[221][166][166][166][166][166]   [221]"
  168. 1660 PRINT TAB(15)"[221][166]       [221]"
  169. 1670 PRINT TAB(15)"[221][166][156] BEEPER[154][221]"
  170. 1680 PRINT TAB(15)"[221] [156] DIALER[154][221]"
  171. 1690 PRINT TAB(15)"[202][192][192][192][192][192][192][192][192][203]"
  172. 1700 PRINTTAB(11)"[153] MATTHEW HOFFMAN "
  173. 1710 PRINTTAB(17)"[158]* * *
  174. 1720 [153][163]11)"   APRIL 1988  "
  175. 1730 [153]"OPEN----------------------------------------";
  176. 1740 [153]"DEFTO                   PRINTTO"
  177. 1750 [153]"DEFTHENIWAITFN - INSTRUCTIONSPRINTTHENBWAITFN - BEGIN"
  178. 1760 [161]S$:[139]S$[178]""[167] 1760
  179. 1770 [139] S$[178]"B"[167] [137] 1800
  180. 1780 [139] S$[178]"I"[167] [141] 2350:[137]1600
  181. 1790 [137]1760
  182. 1800 [142]
  183. 1810 [143]
  184. 1820 [143]     FIRST SCREEN - NO CALLS
  185. 1830 [143]
  186. 1840 [153]"CLR"
  187. 1850 [153][163]11)"  (null)TANTANTANTANLENLENTANLENLENTANTANTANTANRIGHT$
  188. 1860 PRINTTAB(11)" [213][179]  [213][195][195][195][195][195][195][195][201]  [194]
  189. 1870 [153][163]11)"(null)(null)MID$STR$STR$(null)       MID$STR$STR$(null)
  190. 1880 PRINTTAB(11)"[221]   [206]  1 2 3  [205]
  191. 1890 [153][163]11)"MID$RIGHT$  SGN  4 5 6  +
  192. 1900 PRINTTAB(11)" [202][201] [180]  7 8 9  [170]
  193. 1910 [153][163]11)"  MID$LENSGN  * 0 #  +
  194. 1920 PRINTTAB(11)"    [205][175][175][175][175][175][175][175][175][175][206]
  195. 1930 [153][163]5)"OPEN    YOU HAVE HAD NO CALLS..."
  196. 1940 [142]
  197. 1950 [143]
  198. 1960 [143]        READ DATA
  199. 1970 [143]
  200. 1980 [153]"ONON                                       "
  201. 1990 [153]"                                       "
  202. 2000 [153]"ON    PLEASE WAIT, LOADING DATA..."
  203. 2010 [159] 5,8,5,"TEL.DATA,S,R"
  204. 2020 [159] 15,8,15
  205. 2030 [141] 2240
  206. 2040 [139] [197](A$)[177]0[167] [142]
  207. 2050 [132]5,BP$,RT$,AD,BA
  208. 2060 [160] 5
  209. 2070 [160]15
  210. 2080 [142]
  211. 2090 [143]
  212. 2100 [143]        WRITE DATA
  213. 2110 [143]
  214. 2120 [129]E[178]0[164]5:[153]"                                       ":[130]
  215. 2130 [153][163]7)"DEFPLEASE WAIT, SAVING DATA..."
  216. 2140 Z$[178]","
  217. 2150 [159] 5,8,5,"@0:TEL.DATA,S,W"
  218. 2160 [159] 15,8,15
  219. 2170 [141] 2240
  220. 2180 [139] [197](A$)[177]0[167] [142]
  221. 2190 [152]5,BP$;Z$;RT$;Z$;AD;Z$;BA
  222. 2200 [160]5
  223. 2210 [160]15
  224. 2220 [142]
  225. 2230 [143]
  226. 2240 [143]        I/O ERROR CHECK
  227. 2250 [143]
  228. 2260 [132]15,A$,B$,C$,D$
  229. 2270 [139] [197](A$)[178]0 [167] [142]
  230. 2280 [153]A$;B$;" TRACK:"C$" SECTOR:"D$
  231. 2290 [160] 5
  232. 2300 [160]15
  233. 2310 [153]"     ANY KEY TO CONTINUE . . ."
  234. 2320 [146]197,64,64
  235. 2330 [142]
  236. 2340 [143]
  237. 2350 [143]        INSTRUCTIONS
  238. 2360 [143]
  239. 2370 [143]
  240. 2380 [153]"LOAD"[199](14);
  241. 2390 [153][163]8)"CONTPEEKEEPER STR$IALER RIGHT$NSTRUCTIONSPRINT":[153]
  242. 2400 [153]"     (null)HIS PROGRAM WAS WRITTEN TO BE USEDWITH A LENOMMODORE 1660 MODEM";
  243. 2410 [153]", A DIGITAL  BEEPER AND AN ANSWERING MACHINE.";
  244. 2420 [153]" RIGHT$T WILLLOG YOUR CALLS, ALLOW YOUR ANSWERING    MACHINE TO RECORD";
  245. 2430 [153]" AND THEN BEEP YOUR    BEEPER.":[153]
  246. 2440 [153]"    (null)THER USES COULD BE AS SIMPLE AS A  CALL LOG OR AS COMPLICATED";
  247. 2450 [153]" AS A BURGLAR ALARM WHICH SOULD BEEP YOU IN THE EVENT OF A";
  248. 2460 [153]" BREAK-IN. ":[153]
  249. 2470 [153]"     ATNS IS,THIS IS WHAT IT DOES.  (null)HEN ACALL COMES IN, THE COMPUTER ";
  250. 2480 [153]"LOGS THE    TIME AND CALL NUMBER.  RIGHT$T THEN WAITS AN ADJUSTABLE ";
  251. 2490 [153]"PERIOD OF TIME TO ALLOW AN   ANSWERING MACHINE TO RECORD A MESSAGE.";
  252. 2500 [153]"  RIGHT$T THEN PROCEEDS TO DIAL YOUR BEEPER    NUMBER AND ENTERS YOUR ";
  253. 2510 [153] "RETURN NUMBER SO IT WILL APPEAR IN YOUR BEEPER. "
  254. 2520 [141] 2780
  255. 2530 [153]"     (null)HEN THE PROGRAM IS FIRST RUN IT   WILL TRY TO LOAD A FILE ";
  256. 2540 [153]"CALLED 'TEL.DATA', WHICH STORES THE PHONE NUMBERS AND   TIME DELAYS ";
  257. 2550 [153]"NEEDED.  (null)N THE FIRST RUN ITWILL NOT BE ABLE TO FIND THIS FILE, ";
  258. 2560 [153]"SO A'FILE NOT FOUND' ERROR WILL OCCUR.      MID$UST HIT A KEY TO ";
  259. 2570 [153]"CONTINUE AND ENTER THEDATA AS PROMPTED.  "
  260. 2580 [153]:[153]"     RIGHT$N ORDER TO FUNCTION CORRECTLY A   FEW THINGS NEED TO BE ";
  261. 2590 [153]"DETERMINED.       ASCIRST, TIME YOUR ANSWERING MACHINE TO   SEE HOW LO";
  262. 2600 [153]"NG IT TAKES TO GO THROUGH IT'SCYCLE. (null)OU MUST TIME FROM WHEN THE ";
  263. 2610 [153]"PHONEFIRST RINGS UNTIL IT IS FINISHED RECORD-ING AND HANGS UP.  ";
  264. 2620 [153]"(null)INE TAKES 2 MINUTES.RIGHT$F IT IS A (null)(null)(null) OPERATED MESSAGE THEN    JUST ";
  265. 2630 [153]"ALLOW FOR A NORMAL MESSAGE.  (null)HIS  VALUE, EXPRESSED IN SECONDS, ";
  266. 2640 [153]"SHOULD BE  ENTERED AS THE ANSWER TIME DELAY.  ":[153]
  267. 2650 [141] 2780
  268. 2660 [153]"     (null)EXT CALL YOUR BEEPER NUMBER AND   TIME HOW LONG IT TAKES TO ";
  269. 2670 [153]"ANSWER AND    GIVE YOU THE TONES INDICATING WHEN TO   ENTER THE ";
  270. 2680 [153]" RETURN NUMBER.  ";
  271. 2690 [153]"(null)HIS SHOULD  BE ENTERED AS THE BEEPER ANSWER DELAY,  IN SECONDS."
  272. 2700 [153]:[153]"     (null)HAT'S ALL THERE IS TO IT!  RIGHT$T MAY TAKE A LITTLE ";
  273. 2710 [153]"FOOLING AROUND TO GET THE TIMING RIGHT, BUT IT SHOULDN'T BE TOO ";
  274. 2720 [153]"  HARD.  (null)O TEST JUST PRESS LENONTROL-(null) OR  HAVE SOMEONE CALL YOU.  "
  275. 2730 [153]:[153]:[153] [163]20);"LEFT$AVE ASCUN,"
  276. 2740 [153]:[153] [163]22);"(null)ATT"
  277. 2750 [153]:[153]:[153]:[141] 2780
  278. 2760 [153][199](142):[142]
  279. 2770 [128]
  280. 2780 [153]"DEF           ANY KEY TO CONTINUE...PRINT";
  281. 2790 [146] 197,64,64
  282. 2800 [153]"LOAD":[142]
  283. 2810 [142]
  284.